home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / menus / vbembdmn / aaframe.frm next >
Text File  |  1993-02-28  |  3KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form MainWindow 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Menu Embedding Demo"
  6.    ClipControls    =   0   'False
  7.    FontBold        =   -1  'True
  8.    FontItalic      =   0   'False
  9.    FontName        =   "System"
  10.    FontSize        =   9
  11.    FontStrikethru  =   0   'False
  12.    FontUnderline   =   0   'False
  13.    Height          =   1455
  14.    Icon            =   AAFRAME.FRX:0000
  15.    KeyPreview      =   -1  'True
  16.    Left            =   2205
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    ScaleHeight     =   1020
  21.    ScaleWidth      =   3630
  22.    Top             =   1830
  23.    Width           =   3780
  24.    Begin PictureBox EmbedMenu 
  25.       Height          =   315
  26.       Left            =   1590
  27.       ScaleHeight     =   285
  28.       ScaleWidth      =   1860
  29.       TabIndex        =   1
  30.       Top             =   420
  31.       Width           =   1890
  32.    End
  33.    Begin CommandButton Command1 
  34.       BackColor       =   &H00C0C0C0&
  35.       Caption         =   "E&xit"
  36.       Height          =   315
  37.       Left            =   150
  38.       TabIndex        =   0
  39.       Top             =   420
  40.       Width           =   1245
  41.    End
  42. End
  43.  
  44. Sub Command1_Click ()
  45.     Unload MenuForm
  46.     Unload MainWindow  'Dumps the VB form.
  47.     End   'Shuts down the VB app.
  48. End Sub
  49.  
  50. Sub CtlInit (D As Control, OutIn As Integer)
  51. 'This is for the concave look.
  52. LowLight D, OutIn
  53. End Sub
  54.  
  55. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  56. Const Alt_Mask = 4
  57. Const Key_E = 69
  58. AltDown = (Shift And Alt_Mask) > 0
  59. If KeyCode = Key_E Then
  60. If AltDown Then
  61. MenuForm.SetFocus
  62. SendKeys "%E"
  63. End If
  64. End If
  65.  
  66. End Sub
  67.  
  68. Sub Form_Load ()
  69.  
  70. 'This sets the defaultwidth of the 3d frames; you can muck
  71. 'with the width in the BAS General Declarations const declaration
  72. 'near the end of the file; it's at 1 now. Higher nos.
  73. 'make it wider.
  74.    FrameWidth = DEFAULTWIDTH
  75.    MainWindow.Show
  76.    'Here we get various stuff useful for embedding the menu form.
  77.    Call GetWindowRect(MainWindow.EmbedMenu.hWnd, lpRect)
  78.    capsize% = GetSystemMetrics(SM_CYCAPTION)
  79.    xbordwidth% = GetSystemMetrics(SM_CXFRAME) - GetSystemMetrics(SM_CXBORDER)
  80.    ybordheight% = GetSystemMetrics(SM_CYFRAME) - GetSystemMetrics(SM_CYBORDER)
  81.    
  82.    Load MenuForm
  83.    MenuForm.Show
  84.    'Tell it where it belongs--in the main form's picture box.
  85.    a% = SetParent(MenuForm.hWnd, MainWindow.EmbedMenu.hWnd)
  86.    'Now put it into place.
  87.    Call SetWindowPos(MenuForm.hWnd, 0, -xbordwidth%, -ybordheight%, 500, 3000, SWP_NOZORDER)
  88.    MainWindow.SetFocus  'Return focus to our main window.
  89. End Sub
  90.  
  91. Sub Form_Paint ()
  92.     'This makes controls convex
  93.     PaintFrames CTLRAISED
  94.     'This makes them concave
  95.     PaintTexts CTLRECESSED
  96.    MenuForm.SetFocus
  97.    SendKeys "%E{ESC 2}"  '"{F10}"
  98.    q% = DoEvents()
  99.    MainWindow.SetFocus  'Return focus to our main window.
  100.  
  101. End Sub
  102.  
  103. Sub InitCtl (C As Control, InOut As Integer)
  104. 'This is for the convex look.
  105. Highlight C, InOut
  106. End Sub
  107.  
  108. Sub PaintFrames (InOut As Integer)
  109. 'Sets each listed control for convex 3D look.
  110. InitCtl Command1, InOut
  111. End Sub
  112.  
  113. Sub PaintTexts (OutIn As Integer)
  114. 'Sets each listed control for concave 3D look.
  115. CtlInit EmbedMenu, OutIn
  116. End Sub
  117.  
  118.